home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / zbpc_460.zip / GRAPHICS.EXE / ZROSE1.BAS < prev    next >
BASIC Source File  |  1991-03-19  |  768b  |  27 lines
  1. 00010 MODE23
  2. 00020 CLS
  3. 00030 FORN=2TO255
  4. 00040 CLS
  5. 00050 FORD=1TO255
  6. 00060 C1=RND(254)+1:C2=RND(254)+1:C3=RND(254)+1:COLORC1,C2,C3
  7. 00070 PRINT%(0,0)"N="N" ","D="D" "
  8. 00080 T=0:C=0
  9. 00090 WHILEC<255
  10. 00100 A=T:X=(N*A)MOD256:R=USR8(X)/2
  11. 00110 PLOT511+((R*USR9(A))/128),383-((R*USR8(A))/128)
  12. 00120 DO
  13. 00130 A=(A+D)MOD256
  14. 00140 X=(N*A)MOD256:R=USR8(X)/2
  15. 00150 PLOTTO511+((R*USR9(A))/128),383-((R*USR8(A))/128)
  16. 00160 C=C+1
  17. 00170 UNTILA=T
  18. 00180 T=T+1
  19. 00190 WEND
  20. 00200 A$=INKEY$:IFA$=CHR$(3)THEN"QUIT"
  21. 00210 IFLEN(A$)THEND=255
  22. 00220 NEXTD
  23. 00230 NEXTN
  24. 00240 SOUND1000,500:SOUND500,500
  25. 00250 DO:UNTILLEN(A$)
  26. 00280 "QUIT"MODE2:END
  27.